/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / M / MacsBug 6.2.1.cpt / MacsBug 6.2.1 / dcmds / C Samples / Where.c

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 57 68 65 72 65 2e | 63 00 00 00 00 00 00 00 |..Where.|c.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 66 00 | 00 01 ed a4 44 ea e0 a4 |......f.|....D...|
|00000060| 44 ea e0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 39 d7 00 00 |........|....9...|
|00000080| 2f 2a 20 57 68 65 72 65 | 2e 63 0d 0d 20 20 20 54 |/* Where|.c..   T|
|00000090| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 4d 50 57 |he follo|wing MPW|
|000000a0| 20 63 6f 6d 6d 61 6e 64 | 73 20 77 69 6c 6c 20 62 | command|s will b|
|000000b0| 75 69 6c 64 20 74 68 65 | 20 64 63 6d 64 20 61 6e |uild the| dcmd an|
|000000c0| 64 20 63 6f 70 79 20 69 | 74 20 74 6f 20 74 68 65 |d copy i|t to the|
|000000d0| 0d 20 20 20 22 44 65 62 | 75 67 67 65 72 20 50 72 |.   "Deb|ugger Pr|
|000000e0| 65 66 73 22 20 66 69 6c | 65 20 69 6e 20 74 68 65 |efs" fil|e in the|
|000000f0| 20 53 79 73 74 65 6d 20 | 66 6f 6c 64 65 72 2e 20 | System |folder. |
|00000100| 54 68 65 20 64 63 6d 64 | 27 73 20 6e 61 6d 65 20 |The dcmd|'s name |
|00000110| 69 6e 0d 20 20 20 4d 61 | 63 73 42 75 67 20 77 69 |in.   Ma|csBug wi|
|00000120| 6c 6c 20 62 65 20 74 68 | 65 20 6e 61 6d 65 20 6f |ll be th|e name o|
|00000130| 66 20 74 68 65 20 66 69 | 6c 65 20 62 75 69 6c 74 |f the fi|le built|
|00000140| 20 62 79 20 74 68 65 20 | 4c 69 6e 6b 65 72 2e 0d | by the |Linker..|
|00000150| 0d 09 20 20 20 20 43 20 | 57 68 65 72 65 2e 70 0d |..    C |Where.p.|
|00000160| 09 09 4c 69 6e 6b 20 7b | 64 63 6d 64 4c 69 62 7d |..Link {|dcmdLib}|
|00000170| 64 63 6d 64 47 6c 75 65 | 2e 61 2e 6f 20 57 68 65 |dcmdGlue|.a.o Whe|
|00000180| 72 65 2e 63 2e 6f 20 7b | 64 63 6d 64 4c 69 62 7d |re.c.o {|dcmdLib}|
|00000190| 44 52 75 6e 74 69 6d 65 | 2e 6f 20 2d 6f 20 57 68 |DRuntime|.o -o Wh|
|000001a0| 65 72 65 0d 09 09 42 75 | 69 6c 64 44 63 6d 64 20 |ere...Bu|ildDcmd |
|000001b0| 57 68 65 72 65 20 31 30 | 32 0d 09 09 45 63 68 6f |Where 10|2...Echo|
|000001c0| 20 27 69 6e 63 6c 75 64 | 65 20 22 57 68 65 72 65 | 'includ|e "Where|
|000001d0| 22 3b 27 09 7c 09 52 65 | 7a 20 2d 61 20 2d 6f 20 |";'.|.Re|z -a -o |
|000001e0| 22 7b 73 79 73 74 65 6d | 46 6f 6c 64 65 72 7d 44 |"{system|Folder}D|
|000001f0| 65 62 75 67 67 65 72 20 | 50 72 65 66 73 22 0d 20 |ebugger |Prefs". |
|00000200| 2a 2f 0d 0d 23 69 6e 63 | 6c 75 64 65 20 3c 54 79 |*/..#inc|lude <Ty|
|00000210| 70 65 73 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |pes.h>.#|include |
|00000220| 22 64 63 6d 64 2e 68 22 | 0d 0d 0d 70 61 73 63 61 |"dcmd.h"|...pasca|
|00000230| 6c 20 76 6f 69 64 20 43 | 6f 6d 6d 61 6e 64 45 6e |l void C|ommandEn|
|00000240| 74 72 79 20 28 64 63 6d | 64 42 6c 6f 63 6b 2a 20 |try (dcm|dBlock* |
|00000250| 70 61 72 61 6d 50 74 72 | 29 0d 7b 0d 09 73 68 6f |paramPtr|).{..sho|
|00000260| 72 74 09 63 68 3b 0d 09 | 6c 6f 6e 67 09 61 64 64 |rt.ch;..|long.add|
|00000270| 72 65 73 73 3b 0d 09 42 | 6f 6f 6c 65 61 6e 09 6f |ress;..B|oolean.o|
|00000280| 6b 3b 0d 09 53 74 72 32 | 35 35 09 6e 61 6d 65 3b |k;..Str2|55.name;|
|00000290| 0d 0d 09 73 77 69 74 63 | 68 20 28 70 61 72 61 6d |...switc|h (param|
|000002a0| 50 74 72 2d 3e 72 65 71 | 75 65 73 74 29 0d 09 09 |Ptr->req|uest)...|
|000002b0| 7b 0d 09 09 63 61 73 65 | 20 64 63 6d 64 49 6e 69 |{...case| dcmdIni|
|000002c0| 74 3a 0d 09 09 09 62 72 | 65 61 6b 3b 0d 0d 09 09 |t:....br|eak;....|
|000002d0| 63 61 73 65 20 64 63 6d | 64 48 65 6c 70 3a 0d 09 |case dcm|dHelp:..|
|000002e0| 09 09 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 20 28 |..dcmdDr|awLine (|
|000002f0| 22 5c 70 57 48 45 52 45 | 20 5b 61 64 64 72 20 7c |"\pWHERE| [addr ||
|00000300| 20 74 72 61 70 5d 22 29 | 3b 0d 09 09 09 64 63 6d | trap]")|;....dcm|
|00000310| 64 44 72 61 77 4c 69 6e | 65 20 28 22 5c 70 20 20 |dDrawLin|e ("\p  |
|00000320| 20 44 69 73 70 6c 61 79 | 20 69 6e 66 6f 72 6d 61 | Display| informa|
|00000330| 74 69 6f 6e 20 61 62 6f | 75 74 20 74 68 65 20 61 |tion abo|ut the a|
|00000340| 64 64 72 65 73 73 20 6f | 72 20 74 72 61 70 22 29 |ddress o|r trap")|
|00000350| 3b 0d 09 09 09 64 63 6d | 64 44 72 61 77 4c 69 6e |;....dcm|dDrawLin|
|00000360| 65 20 28 22 5c 70 20 20 | 20 49 66 20 6e 6f 20 70 |e ("\p  | If no p|
|00000370| 61 72 61 6d 65 74 65 72 | 20 74 68 65 6e 20 75 73 |arameter| then us|
|00000380| 65 20 50 43 20 61 73 20 | 74 68 65 20 61 64 64 72 |e PC as |the addr|
|00000390| 65 73 73 22 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |ess");..|..break;|
|000003a0| 0d 0d 09 09 63 61 73 65 | 20 64 63 6d 64 44 6f 49 |....case| dcmdDoI|
|000003b0| 74 3a 0d 09 09 09 69 66 | 20 28 64 63 6d 64 50 65 |t:....if| (dcmdPe|
|000003c0| 65 6b 41 74 4e 65 78 74 | 43 68 61 72 20 28 29 20 |ekAtNext|Char () |
|000003d0| 3d 3d 20 27 5c 6e 27 29 | 0d 09 09 09 09 61 64 64 |== '\n')|.....add|
|000003e0| 72 65 73 73 20 3d 20 70 | 61 72 61 6d 50 74 72 2d |ress = p|aramPtr-|
|000003f0| 3e 72 65 67 69 73 74 65 | 72 46 69 6c 65 5b 50 43 |>registe|rFile[PC|
|00000400| 52 65 67 69 73 74 65 72 | 5d 3b 0d 09 09 09 65 6c |Register|];....el|
|00000410| 73 65 0d 09 09 09 09 7b | 0d 09 09 09 09 63 68 20 |se.....{|.....ch |
|00000420| 3d 20 64 63 6d 64 47 65 | 74 4e 65 78 74 45 78 70 |= dcmdGe|tNextExp|
|00000430| 72 65 73 73 69 6f 6e 20 | 28 26 61 64 64 72 65 73 |ression |(&addres|
|00000440| 73 2c 20 26 6f 6b 29 3b | 0d 09 09 09 09 69 66 20 |s, &ok);|.....if |
|00000450| 28 21 6f 6b 29 0d 09 09 | 09 09 09 7b 0d 09 09 09 |(!ok)...|...{....|
|00000460| 09 09 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 20 28 |..dcmdDr|awLine (|
|00000470| 22 5c 70 53 79 6e 74 61 | 78 20 65 72 72 6f 72 22 |"\pSynta|x error"|
|00000480| 29 3b 0d 09 09 09 09 09 | 72 65 74 75 72 6e 3b 0d |);......|return;.|
|00000490| 09 09 09 09 09 7d 0d 09 | 09 09 09 7d 0d 0d 09 09 |.....}..|...}....|
|000004a0| 09 69 66 20 28 61 64 64 | 72 65 73 73 20 3e 3d 20 |.if (add|ress >= |
|000004b0| 30 78 30 30 30 30 41 30 | 30 30 20 26 26 20 61 64 |0x0000A0|00 && ad|
|000004c0| 64 72 65 73 73 20 3c 3d | 20 30 78 30 30 30 30 41 |dress <=| 0x0000A|
|000004d0| 42 46 46 29 0d 09 09 09 | 09 7b 0d 09 09 09 09 64 |BFF)....|.{.....d|
|000004e0| 63 6d 64 47 65 74 54 72 | 61 70 4e 61 6d 65 20 28 |cmdGetTr|apName (|
|000004f0| 61 64 64 72 65 73 73 2c | 20 6e 61 6d 65 29 3b 0d |address,| name);.|
|00000500| 09 09 09 09 64 63 6d 64 | 44 72 61 77 4c 69 6e 65 |....dcmd|DrawLine|
|00000510| 20 28 6e 61 6d 65 29 3b | 0d 09 09 09 09 7d 0d 09 | (name);|.....}..|
|00000520| 09 09 65 6c 73 65 0d 09 | 09 09 09 7b 0d 09 09 09 |..else..|...{....|
|00000530| 09 64 63 6d 64 47 65 74 | 4e 61 6d 65 41 6e 64 4f |.dcmdGet|NameAndO|
|00000540| 66 66 73 65 74 20 28 61 | 64 64 72 65 73 73 2c 20 |ffset (a|ddress, |
|00000550| 6e 61 6d 65 29 3b 0d 09 | 09 09 09 69 66 20 28 6e |name);..|...if (n|
|00000560| 61 6d 65 5b 30 5d 20 3e | 20 30 29 0d 09 09 09 09 |ame[0] >| 0).....|
|00000570| 09 64 63 6d 64 44 72 61 | 77 4c 69 6e 65 20 28 6e |.dcmdDra|wLine (n|
|00000580| 61 6d 65 29 3b 0d 09 09 | 09 09 65 6c 73 65 0d 09 |ame);...|..else..|
|00000590| 09 09 09 09 64 63 6d 64 | 44 72 61 77 4c 69 6e 65 |....dcmd|DrawLine|
|000005a0| 20 28 22 5c 70 4e 6f 20 | 70 72 6f 63 65 64 75 72 | ("\pNo |procedur|
|000005b0| 65 20 6e 61 6d 65 20 66 | 6f 75 6e 64 22 29 3b 0d |e name f|ound");.|
|000005c0| 09 09 09 09 7d 0d 09 09 | 09 62 72 65 61 6b 3b 0d |....}...|.break;.|
|000005d0| 09 09 7d 0d 7d 20 2f 2f | 20 43 6f 6d 6d 61 6e 64 |..}.} //| Command|
|000005e0| 45 6e 74 72 79 0d 00 00 | 00 00 00 00 00 00 00 00 |Entry...|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 9b | 00 00 00 9b 00 00 00 52 |........|.......R|
|00000610| 00 6a 6d 78 77 74 00 02 | 00 b2 6d 78 62 69 00 00 |.jmxwt..|..mxbi..|
|00000620| 00 d6 6d 78 62 63 00 00 | 00 e2 64 63 6d 64 00 04 |..mxbc..|..dcmd..|
|00000630| 07 57 68 65 72 65 2e 63 | 02 00 00 00 54 45 58 54 |.Where.c|....TEXT|
|00000640| 4d 50 53 20 01 00 00 40 | 00 80 00 00 00 00 8b 29 |MPS ...@|.......)|
|00000650| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 40 00 80 |..TEXTMP|S ...@..|
|00000660| 00 00 3b d2 00 00 00 00 | 00 00 00 00 00 00 00 00 |..;.....|........|
|00000670| 00 00 a4 44 b2 a0 00 00 | 05 66 00 00 01 ed 00 00 |...D....|.f......|
|00000680| 00 00 00 66 ff ff 00 00 | 16 9a 00 00 00 00 00 67 |...f....|.......g|
|00000690| 00 29 00 00 21 ae 00 00 | 00 00 00 68 00 2e 00 00 |.)..!...|...h....|
|000006a0| 27 29 00 00 00 00 00 69 | 00 3a 00 00 28 8e 00 00 |').....i|.:..(...|
|000006b0| 00 00 00 64 00 46 00 00 | 2b 30 00 00 00 00 00 65 |...d.F..|+0.....e|
|000006c0| 00 52 00 00 3a a4 00 00 | 00 00 00 66 00 5e 00 00 |.R..:...|...f.^..|
|000006d0| 45 e0 00 00 00 00 00 00 | ff ff 00 00 4a b2 00 00 |E.......|....J...|
|000006e0| 00 00 00 00 ff ff 00 00 | 4a bc 00 00 00 00 00 c0 |........|J.......|
|000006f0| 00 6a 00 00 4a cc 00 00 | 00 00 00 c2 00 6f 00 00 |.j..J...|.....o..|
|00000700| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 19 fc 19 |...H..Mo|naco....|
|00000710| 00 0e 00 09 00 0e 01 c6 | 01 9a 00 09 01 9a 01 c6 |........|........|
|00000720| 00 00 00 00 00 00 00 06 | 00 04 00 2a 00 03 01 42 |........|...*...B|
|00000730| 01 e3 00 2a 00 03 01 42 | 01 e3 a3 c9 c2 c0 00 00 |...*...B|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00000750| 00 2a 00 03 01 42 01 e3 | 00 2a 00 03 01 42 01 e3 |.*...B..|.*...B..|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 29 01 02 80 00 00 00 | 05 31 2e 30 2e 32 1c 4d |.)......|.1.0.2.M|
|00000780| 61 63 73 42 75 67 20 61 | 6e 64 20 44 69 73 63 69 |acsBug a|nd Disci|
|00000790| 70 6c 69 6e 65 20 31 2e | 30 2e 32 00 00 01 00 00 |pline 1.|0.2.....|
|000007a0| 00 01 9b 00 00 00 9b 00 | 00 00 52 00 5c 88 80 08 |........|..R.\...|
|000007b0| 74 00 00 00 1c 00 52 00 | 01 4d 50 53 52 00 01 00 |t.....R.|.MPSR...|
|000007c0| 12 76 65 72 73 00 00 00 | 2a 03 ed ff ff 00 00 00 |.vers...|*.......|
|000007d0| 00 00 00 00 00 03 f0 ff | ff 00 00 00 4c 00 00 00 |........|....L...|
|000007e0| 00 00 02 ff ff 20 00 00 | 6e 00 5c 88 70 00 00 00 |..... ..|n.\.p...|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+